﻿Friend Class ControlGenerator

    Friend Shared Function GenerateButton(ByVal text As String, _
                                          ByVal width As Integer, _
                                          ByVal height As Integer, _
                                          ByVal thickness As Thickness) As Button

        Dim Result As New Button
        Result.Content = text
        Result.Width = width
        Result.Height = height
        Result.Margin = thickness
        Result.HorizontalAlignment = HorizontalAlignment.Left
        Result.VerticalAlignment = VerticalAlignment.Top
        Return Result

    End Function

End Class
